home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-08-07 | 1.6 KB | 60 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH"="Internet\Instant Messaging\Gku"
- "NAME"="Stay On Top"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Force Gku To Stay On Top"
- "DESCRIPTION 1"="Ticking this option forces Gku to stay on top of all other windows. (This is also known as the 'Always On Top' option)."
- "DESCRIPTION 2"="Unticking it causes the Gku window to act like normal."
- "DESCRIPTION 3"="By default, this option is ticked."
- "DESCRIPTION 4"="Gku may be obtained at http://lockergnome.virtualave.net"
- "COMMENT 1"="For more information, go to http://www.xteq.com."
- "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
- "COMMENT 3"="Thanks also to Vex, the maker of Gku."
- "VERSION"="3.00"
- "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
- "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
-
- 'Declaration of some constants
- sFile=""
- sSec="GUI"
- sV1="AlwaysOnTop"
-
- 'Called when the Plugin is started
- SUB Plugin_Initialize
- Call GetGkuFile
-
- If FileExists(sFile) then
-
- i=IniReadValue(sFile,sSec,sV1)
- if i="1" then SetUiElement 1,true
-
- else
- Call Disable()
- End if
-
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- s="0"
- b=GetUIElement(1)
- if b=true then s="1"
- Call iniWriteValue(sFile,sSec,sV1,s)
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
- END SUB
-
- 'User defined SUB's
- SUB GetGKUFile
- s=iniReadValue("WIN.INI","GKU","InstallDir")
- sFile=s & "\gku.ini"
- END SUB
-